home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / tapedeck_test.e < prev    next >
Encoding:
Text File  |  1997-02-10  |  714 b   |  33 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'plugins/tapedeck'
  3.  
  4. PROC main() HANDLE
  5.   DEF t=NIL:PTR TO tapedeck
  6.   NEW t.tapedeck()
  7.   easyguiA('BOOPSI in EasyGUI!',
  8.     [ROWS,
  9.       [TEXT,'Tapedeck test...',NIL,TRUE,1],
  10.       [PLUGIN,{tapedeckaction},t],
  11.       [EQCOLS,
  12.         [BUTTON,{reset},'Reset',t],
  13.         [BUTTON,{toggle_enabled},'Toggle Enabled',t]
  14.       ]
  15.     ])
  16. EXCEPT DO
  17.   END t
  18.   report_exception()
  19. ENDPROC
  20.  
  21. PROC tapedeckaction(i,t:PTR TO tapedeck)
  22.   PrintF('Action: mode=\d\s\n', t.mode, IF t.paused THEN ' (paused)' ELSE '')
  23. ENDPROC
  24.  
  25. PROC reset(t:PTR TO tapedeck,i)
  26.   t.setmode()
  27.   t.setpaused(FALSE)
  28. ENDPROC
  29.  
  30. PROC toggle_enabled(t:PTR TO tapedeck,i)
  31.   t.setdisabled(t.disabled=FALSE)
  32. ENDPROC
  33.